perm filename OUTS.F4[NEW,LCS] blob sn#337821 filedate 1978-02-25 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		DIMENSION A(4)
C00003 ENDMK
CāŠ—;
	DIMENSION A(4)
	A(1)='X'
	A(3)='X'
	A(4)='X'
	CALL TYPSTR('TYPE J,A ')
	ACCEPT 1,X,J,A(2)       
1	FORMAT(F,I,3A5)
	CALL TYPFLT(X)
	CALL TYPWRD(A(2))
	CALL TYPCHR(A,20)
	CALL TYPCRLF
C	CALL TYPSTR("64240 000000)
	CALL TYPCHR('Hello AGAIN',8)
	CALL TYPCRLF
	CALL TYPDEC(J)
	END